home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TOPT11.ZIP / TOPVIEW.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-26  |  7KB  |  333 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     String   STRING024
  44.     String   STRING025
  45.     String   STRING026
  46.     String   STRING027
  47.     String   STRING028
  48.     String   STRING029
  49.     String   STRING030
  50.     String   STRING031
  51.     String   STRING032
  52.     String   STRING033
  53.     String   STRING034
  54.     String   STRING035
  55.     String   STRING036
  56.     String   STRING037
  57.     String   STRING038
  58.     String   STRING039
  59.     String   STRING040
  60.  
  61. ;------------------------------------------------------------------------------
  62.  
  63.     If (Exist(PPEPath() + "TOPTEN.DAT") == 0) Then
  64.         Goto LABEL002
  65.     Else
  66.         FOpen 1, PPEPath() + "TOPTEN.DAT", 0, 0
  67.     Endif
  68.     FGet 1, STRING001
  69.     FGet 1, STRING002
  70.     FGet 1, STRING003
  71.     FGet 1, STRING004
  72.     FGet 1, STRING005
  73.     FGet 1, STRING006
  74.     FGet 1, STRING007
  75.     FGet 1, STRING008
  76.     FGet 1, STRING009
  77.     FGet 1, STRING010
  78.     FGet 1, STRING011
  79.     FGet 1, STRING012
  80.     FGet 1, STRING013
  81.     FGet 1, STRING014
  82.     FGet 1, STRING015
  83.     FGet 1, STRING016
  84.     FGet 1, STRING017
  85.     FGet 1, STRING018
  86.     FGet 1, STRING019
  87.     FGet 1, STRING020
  88.     FGet 1, STRING021
  89.     FGet 1, STRING022
  90.     FGet 1, STRING023
  91.     FGet 1, STRING024
  92.     FGet 1, STRING025
  93.     FGet 1, STRING026
  94.     FGet 1, STRING027
  95.     FGet 1, STRING028
  96.     FGet 1, STRING029
  97.     FGet 1, STRING030
  98.     FGet 1, STRING031
  99.     FGet 1, STRING032
  100.     FGet 1, STRING033
  101.     FGet 1, STRING034
  102.     FGet 1, STRING035
  103.     FGet 1, STRING036
  104.     FGet 1, STRING037
  105.     FGet 1, STRING038
  106.     FGet 1, STRING039
  107.     FGet 1, STRING040
  108.     FClose 1
  109.     Print "@CLS@"
  110.     Print "@POFF@"
  111.     AnsiPos 1, 1
  112.     PrintLn "@X0F  @X79░▒▓██▓▒░░▒▓@X09▓ @X79█▓▒░░▒▓█▓▒░@X0F @X79█▓▒░░▒▓█▓▒░@X0F   @X79░▒▓██▓▒░░▒▓@X09▓ @X79█▓▒░░▒▓█▓▒░@X0F @X79█▓▒░░▒▓█▓▒░"
  113.     PrintLn "@X09  @X79░▓██▓▒░░▒▓█@X09▓ @X79▓▒░░@X0F   @X79▓▒░░@X0F @X79▓▒░░@X0F   @X79▓▒░░@X0F   @X79░▓██▓▒░░▒▓█@X09▓ @X79▓▒░░@X0F        @X79▓▒░░@X0F   @X79▓▒░░"
  114.     PrintLn "@X0F      @X79▒░░▒@X0F     @X79▒░░▒@X0F   @X79▒░░▒@X0F @X79▒░░▒@X0F   @X79▒░░▒@X0F       @X79▒░░▒@X0F     @X79▒░░▒@X0F        @X79▒░░▒@X0F   @X79▒░░▒"
  115.     PrintLn "@X0F      @X79░░▒▓@X0F     @X79░░▒▓@X0F   @X79░░▒▓@X0F @X79░░▒▓@X0F   @X79░░▒▓@X0F       @X79░░▒▓@X0F     @X79░░▒▓@X0F        @X79░░▒▓@X0F   @X79░░▒▓"
  116.     PrintLn "@X0F      @X79░▒▓█@X0F     @X79░▒▓█@X0F   @X79░▒▓█@X0F @X79░▒▓██▓▒░▒▓█@X0F       @X79░▒▓█@X0F     @X79░▒▓██▓▒░@X0F    @X79░▒▓█@X0F   @X79░▒▓█"
  117.     PrintLn "@X0F      @X79▒▓█@X09▓     @X79▒▓█@X09▓   @X79▒▓█@X09▓ @X79▒▓█@X09▓              @X79▒▓█@X09▓     @X79▒▓█@X09▓        @X79▒▓█@X09▓   @X79▒▓█@X09▓"
  118.     PrintLn "@X0F      @X79▓█@X09▓▒     @X79▓█@X09▓▒   @X79▓█@X09▓▒ @X79▓█@X09▓▒              @X79▓█@X09▓▒     @X79▓█@X09▓▒        @X79▓█@X09▓▒   @X79▓█@X09▓▒"
  119.     PrintLn "@X0F      @X79█@X09▓▒░     @X79█@X09▓▒░   @X79█@X09▓▒░ @X79█@X09▓▒░              @X79█@X09▓▒░     @X79█@X09▓▒░        @X79█@X09▓▒░   @X79█@X09▓▒░"
  120.     PrintLn "@X0F      @X09▓▒░░     ▓▒░░░▒▒▓▒░░ ▓▒░░              ▓▒░░     ▓▒░░░▒▒▓▒░░ ▓▒░░   ▓▒░░"
  121.     PrintLn "  @X7F█@X0F▀▀▀▀@X7F█@X0F▀@X05Top Uploader@X0F▀▀▀@X7F█@X0F▀▀■▀·@X05Bytes@X0F·▀■▀▀@X7F█@X0F▀▀▀▀█▀@X05Top Downloader@X0F▀@X7F█@X0F▀▀■▀·@X05Bytes@X0F·▀■▀▀@X7F█"
  122.     PrintLn "@X0F  @X7F█@X0F    @X7F█@X0F                @X7F█@X0F               @X7F█@X0F    @X7F█@X0F                @X7F█@X0F               @X7F█"
  123.     PrintLn "@X0F  @X7F▓@X0F @X05o1 @X7F▓@X0F                @X7F▓@X0F               @X7F▓@X0F @X05o1 @X7F▓@X0F                @X7F▓@X0F               @X7F▓"
  124.     PrintLn "@X0F  @X7F▒@X0F @X05o2 @X7F▒@X0F                @X7F▒@X0F               @X7F▒@X0F @X05o2 @X7F▒@X0F                @X7F▒@X0F               @X7F▒"
  125.     PrintLn "@X0F  @X7F░@X0F @X05o3 @X7F░@X0F                @X7F░@X0F               @X7F░@X0F @X05o3 @X7F░@X0F                @X7F░@X0F               @X7F░"
  126.     PrintLn "@X0F  @X78░@X0F @X05o4 @X78░@X0F                @X78░@X0F               @X78░@X0F @X05o4 @X78░@X0F                @X78░@X0F               @X78░"
  127.     PrintLn "@X08  @X78▒@X0F @X05o5 @X78▒@X0F                @X78▒@X0F               @X78▒@X0F @X05o5 @X78▒@X0F                @X78▒@X0F               @X78▒"
  128.     PrintLn "@X08  ▓ @X05o6 @X08▓                ▓               ▓ @X05o6 @X08▓                ▓               ▓"
  129.     PrintLn "  ▒ @X05o7 @X08▒                ▒               ▒ @X05o7 @X08▒                ▒               ▒"
  130.     PrintLn "  ░ @X05o8 @X08░                ░               ░ @X05o8 @X08░                ░               ░"
  131.     PrintLn "    @X05o9                                    o9"
  132.     PrintLn "  @X08░ @X051o @X08░                ░               ░ @X051o @X08░                ░               ░"
  133.     PrintLn "@X0F    (@X0D(@X05(ToP TeN PPE - A PSi@X0Do@X05N PRoDUCTioN! - Code:Coffe Man - ANSi:Darkmind)@X0D)@X0F)"
  134.     Gosub LABEL001
  135.     AnsiPos 1, 12
  136.     Forward 9
  137.     Print "@X0B", STRING001
  138.     Forward 2
  139.     INTEGER001 = 14 - Len(STRING021)
  140.     Forward INTEGER001
  141.     Print "@X07", STRING021
  142.     Forward 7
  143.     Print "@X0B", STRING011
  144.     Forward 2
  145.     INTEGER001 = 14 - Len(STRING031)
  146.     Forward INTEGER001
  147.     PrintLn "@X07", STRING031
  148.     Forward 9
  149.     Print "@X0B", STRING002
  150.     Forward 2
  151.     INTEGER001 = 14 - Len(STRING022)
  152.     Forward INTEGER001
  153.     Print "@X08", STRING022
  154.     Forward 7
  155.     Print "@X0B", STRING012
  156.     Forward 2
  157.     INTEGER001 = 14 - Len(STRING032)
  158.     Forward INTEGER001
  159.     PrintLn "@X08", STRING032
  160.     Forward 9
  161.     Print "@X0B", STRING003
  162.     Forward 2
  163.     INTEGER001 = 14 - Len(STRING023)
  164.     Forward INTEGER001
  165.     Print "@X08", STRING023
  166.     Forward 7
  167.     Print "@X0B", STRING013
  168.     Forward 2
  169.     INTEGER001 = 14 - Len(STRING033)
  170.     Forward INTEGER001
  171.     PrintLn "@X08", STRING033
  172.     Forward 9
  173.     Print "@X0B", STRING004
  174.     Forward 2
  175.     INTEGER001 = 14 - Len(STRING024)
  176.     Forward INTEGER001
  177.     Print "@X08", STRING024
  178.     Forward 7
  179.     Print "@X0B", STRING014
  180.     Forward 2
  181.     INTEGER001 = 14 - Len(STRING034)
  182.     Forward INTEGER001
  183.     PrintLn "@X08", STRING034
  184.     Forward 9
  185.     Print "@X0B", STRING005
  186.     Forward 2
  187.     INTEGER001 = 14 - Len(STRING025)
  188.     Forward INTEGER001
  189.     Print "@X08", STRING025
  190.     Forward 7
  191.     Print "@X0B", STRING015
  192.     Forward 2
  193.     INTEGER001 = 14 - Len(STRING035)
  194.     Forward INTEGER001
  195.     PrintLn "@X08", STRING035
  196.     Forward 9
  197.     Print "@X0B", STRING006
  198.     Forward 2
  199.     INTEGER001 = 14 - Len(STRING026)
  200.     Forward INTEGER001
  201.     Print "@X08", STRING026
  202.     Forward 7
  203.     Print "@X0B", STRING016
  204.     Forward 2
  205.     INTEGER001 = 14 - Len(STRING036)
  206.     Forward INTEGER001
  207.     PrintLn "@X08", STRING036
  208.     Forward 9
  209.     Print "@X0B", STRING007
  210.     Forward 2
  211.     INTEGER001 = 14 - Len(STRING027)
  212.     Forward INTEGER001
  213.     Print "@X08", STRING027
  214.     Forward 7
  215.     Print "@X0B", STRING017
  216.     Forward 2
  217.     INTEGER001 = 14 - Len(STRING037)
  218.     Forward INTEGER001
  219.     PrintLn "@X08", STRING037
  220.     Forward 9
  221.     Print "@X0B", STRING008
  222.     Forward 2
  223.     INTEGER001 = 14 - Len(STRING028)
  224.     Forward INTEGER001
  225.     Print "@X08", STRING028
  226.     Forward 7
  227.     Print "@X0B", STRING018
  228.     Forward 2
  229.     INTEGER001 = 14 - Len(STRING038)
  230.     Forward INTEGER001
  231.     PrintLn "@X08", STRING038
  232.     Forward 9
  233.     Print "@X0B", STRING009
  234.     Forward 2
  235.     INTEGER001 = 14 - Len(STRING029)
  236.     Forward INTEGER001
  237.     Print "@X08", STRING029
  238.     Forward 7
  239.     Print "@X0B", STRING019
  240.     Forward 2
  241.     INTEGER001 = 14 - Len(STRING039)
  242.     Forward INTEGER001
  243.     PrintLn "@X08", STRING039
  244.     Forward 9
  245.     Print "@X0B", STRING010
  246.     Forward 2
  247.     INTEGER001 = 14 - Len(STRING030)
  248.     Forward INTEGER001
  249.     Print "@X08", STRING030
  250.     Forward 7
  251.     Print "@X0B", STRING020
  252.     Forward 2
  253.     INTEGER001 = 14 - Len(STRING040)
  254.     Forward INTEGER001
  255.     PrintLn "@X08", STRING040
  256.     AnsiPos 1, 24
  257.     Wait
  258.     Goto LABEL002
  259.     :LABEL001
  260.     STRING011 = Left(STRING011, 15)
  261.     STRING012 = Left(STRING012, 15)
  262.     STRING013 = Left(STRING013, 15)
  263.     STRING014 = Left(STRING014, 15)
  264.     STRING015 = Left(STRING015, 15)
  265.     STRING016 = Left(STRING016, 15)
  266.     STRING017 = Left(STRING017, 15)
  267.     STRING018 = Left(STRING018, 15)
  268.     STRING019 = Left(STRING019, 15)
  269.     STRING020 = Left(STRING020, 15)
  270.     STRING001 = Left(STRING001, 15)
  271.     STRING002 = Left(STRING002, 15)
  272.     STRING003 = Left(STRING003, 15)
  273.     STRING004 = Left(STRING004, 15)
  274.     STRING005 = Left(STRING005, 15)
  275.     STRING006 = Left(STRING006, 15)
  276.     STRING007 = Left(STRING007, 15)
  277.     STRING008 = Left(STRING008, 15)
  278.     STRING009 = Left(STRING009, 15)
  279.     STRING010 = Left(STRING010, 15)
  280.     Return
  281.     :LABEL002
  282.     End
  283.  
  284. ;------------------------------------------------------------------------------
  285. ;
  286. ; Usage report (before postprocessing)
  287. ;
  288. ; ■ Statements used :
  289. ;
  290. ;    1       End
  291. ;    1       Wait
  292. ;    4       Goto 
  293. ;    40      Let 
  294. ;    32      Print 
  295. ;    32      PrintLn 
  296. ;    1       If 
  297. ;    1       FOpen 
  298. ;    1       FClose 
  299. ;    40      FGet 
  300. ;    1       Gosub 
  301. ;    1       Return
  302. ;    3       AnsiPos 
  303. ;    60      Forward 
  304. ;
  305. ;
  306. ; ■ Functions used :
  307. ;
  308. ;    2       +
  309. ;    20      -
  310. ;    1       ==
  311. ;    1       !
  312. ;    20      Len(
  313. ;    20      Left()
  314. ;    2       PPEPath()
  315. ;    1       Exist()
  316. ;
  317. ;------------------------------------------------------------------------------
  318. ;
  319. ; Analysis flags : No flag
  320. ;
  321. ;------------------------------------------------------------------------------
  322. ;
  323. ; Postprocessing report
  324. ;
  325. ;    0       For/Next
  326. ;    0       While/EndWhile
  327. ;    1       If/Then or If/Then/Else
  328. ;    0       Select Case
  329. ;
  330. ;------------------------------------------------------------------------------
  331. ;                 AEGiS Corp - Break the routines, code against the machines!
  332. ;------------------------------------------------------------------------------
  333.